data <- d1
strata <- 'congressional.district'
IPW_CACE_S1_path <- cace('path.to.citizenship.followup', 
                     'path.to.citizenship.baseline', 
                     data, B, strata, ipw = TRUE, incl_sameparty = TRUE)
IPW_CACE_S1_immg <- cace('legal.immigration.followup', 
                     'legal.immigration.baseline', 
                     data, B, strata, ipw = TRUE, incl_sameparty = TRUE)
IPW_CACE_S1_trus <- cace('trust.followup', 
                     'trust.baseline', 
                     data, B, strata, ipw = TRUE, incl_sameparty = TRUE)
IPW_CACE_S1_appr <- cace('approval.followup', 
                     'approval.baseline', 
                     data, B, strata, ipw = TRUE, incl_sameparty = TRUE)
IPW_CACE_S1_vint <- cace('vote.followup', 
                     'vote.baseline', 
                     data, B, strata, ipw = TRUE, incl_sameparty = TRUE)
IPW_CACE_S1_actv <- cace('vote.november', 
                     'vote.baseline', 
                     data, B, strata, ipw = TRUE, incl_sameparty = TRUE)